1 REM ***        DISK HOLDER
2 REM *** FOR THE C-64/C-64C/C-128
3 REM ***     BY RON O'LAUGHLIN
4 REM ***PUBLISHED BY SOFTDISK PUBLISHING
10 IF A=3 THEN GOTO 31
12 IF PEEK(56)<>64 THEN POKE56,64: CLR
14 IF A=0 THEN A=1: GOSUB 20: LOAD"0:DISK HOLDER.BMP",8,1
16 IF A=1 THEN A=2: LOAD"0:DISK HOLDER.COL",8,1
18 IF A=2 THEN A=3: LOAD"0:LPTR RTN",8,1
20 POKE 53280,0: POKE53281,0: PRINT"[147]"CHR$(142)CHR$(8)
21 PRINT"[158]         [209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
22 FORP=1TO10:PRINT"         [209][209]":NEXT
23 PRINT"[145][145][145][145][145][145][145][145][145]DISK HOLDER"
24 PRINT"BY:":PRINT"RHONDA O'LAUGHLIN"
25 PRINT"(C) 1987"
26 PRINT"PUBLISHED BY:"
27 PRINT"[156]SOFTDISK PUBLISHING"
28 PRINT"[158]         [209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
29 RETURN
31 PRINT"         [209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
32 FORP=1TO10:PRINT"         [209][209]":NEXT
33 PRINT"         [209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
34 PRINT"[156]        PRESS RETURN[156] TO CONTINUE"
35 GET Z$: IF Z$=CHR$(13) THEN 38
36 IF X=0 THEN X=1: GOSUB 21: GOTO 35
37 X=0: GOTO 31
38 GOTO7000
39 CLR:POKE53265,PEEK(53265)AND239
40 POKE56578,PEEK(56578)OR3
50 POKE56576,(PEEK(56576)AND252)OR2
60 POKE53265,PEEK(53265)OR32
70 POKE53270,PEEK(53270)OR16
80 BA=PEEK(53272):POKE53272,(BA AND 240)OR8
82 FORP=49152TO49199:READX:POKEP,X:NEXT:SYS49152
90 POKE53265,PEEK(53265)OR16
92 GETX$:IFX$=""THEN92
93 IFX$<>CHR$(13)THEN92
94 POKE53265,PEEK(53265)AND239:POKE53272,(PEEK(53272)AND240)OR4
95 POKE53270,PEEK(53270)AND239:POKE56576,(PEEK(56576)AND252)OR3
96 POKE53265,PEEK(53265)AND223:SYS49152
97 IFX=1THEN7060
98 GOTO7000
99 REM****END OF SCREEN
100 PRINT"[147][154]"
105 PRINTCHR$(14)+CHR$(8)
110 A$=":                        :"
120 B$=".........................."
130 C$=":                                          :"
140 PRINT"   [212]HIS PROGRAM IS A BIT DIFFERENT AS "
150 PRINT"FAR AS COMPUTER PROGRAMS GO, BUT IT"
160 PRINT"MEETS A BASIC NEED FOR MANY OF US."
170 PRINT"[200]AVE YOU EVER TRIED TO FIND A DISK YOU"
180 PRINT"WERE LOOKING FOR WHEN 7 OR 8 DISKS WERE"
190 PRINT"SCATTERED AROUND YOUR DESK?"
195 PRINT: PRINT"   [212]HAT DESCRIBES THE NEED.  [212]O MEET"
200 PRINT"THE NEED, YOU'LL HAVE TO HAVE A PRINTER"
210 PRINT"HOOKED UP TO YOUR COMPUTER AND RUN THIS"
215 PRINT"PROGRAM."
220 GOSUB630
230 PRINT"   [211]EVERAL PATTERNS WILL BE GENERATED "
240 PRINT"ON YOUR PRINTER.  [212]HE TWO LARGE PATTERNS"
250 PRINT"[145]WILL BE TEMPLATES FOR CUTTING THE     "
260 PRINT"WOODEN SIDES.  [215]ITH TAPE OR RUBBER    "
270 PRINT"CEMENT, FASTEN THE TWO PATTERNS TO ANY"
280 PRINT"FLAT PIECE OR WOOD 1/4-3/4 IN. THICK."
290 PRINT:PRINTSPC(5)"( [196]O NOT USE PARTICLE BOARD! [146][154])"
300 PRINT:PRINT"[212]HICKER WOOD IS PREFERRED BECAUSE IT "
310 PRINT"GIVES THE HOLDER MORE WEIGHT.":PRINT""
315 GOSUB630
320 PRINT"   [195]UT OUT THE TWO SIDES WITH A JIGSAW,"
340 PRINT"COPING SAW, OR WHATEVER ELSE YOU HAVE"
360 PRINT"THAT'LL DO THE JOB.  [212]AKE YOUR TIME..."
370 PRINT"IT WILL BE WORTH IT LATER ON."
390 PRINT:PRINT"   [193]SSEMBLE THE BOX WITH SCREWS, NAILS"
392 PRINT"OR GLUE.  [212]HIS DISK BOX MAY BE STAINED"
394 PRINT"IF YOU WANT A PROFESSIONAL LOOKING PRO-"
396 PRINT"JECT.  [201]F YOU LIKE, YOU MAY EVEN CUT"
398 PRINT"THE BOX FROM THICK CARDBOARD."
400 PRINT:PRINT"   [212]HE UTILITY OF THE PROJECT IS IMPOR-"
401 PRINT"TANT, NOT THE LOOKS, RIGHT?"
402 PRINT:PRINT"   [205]AKE USE OF ONE OF THESE DISK BOXES"
404 PRINT"AND YOU WILL NEVER WANT TO BE WITHOUT":PRINT"IT AGAIN."
410 GOSUB630:PRINT"[147]"
420 PRINT"         [196]O YOU WANT TO:"
430 PRINT"         [158][1][146][154] [210]UN PROGRAM"
440 PRINT"         [2][146][154] [210]EVIEW INSTRUCTIONS"
450 PRINT"         [156][3][146][154] [210]ETURN TO UPTIME"
455 PRINT"         [4][146][154] [210]ETURN TO MAIN MENU"
460 GETZ$:IFZ$=""OR(VAL(Z$)<1ANDVAL(Z$)>4)THEN460
470 ON(VAL(Z$))GOTO500,2000,2010,7000
499 PRINT"":GOTO420
500 REM***TO PRINTER
505 PRINTCHR$(14)+CHR$(8)
510 PRINT"[147]"
520 PRINTSPC(9)"[212]URN ON YOUR PRINTER...":GOSUB630
530 PRINT"[147]"
545 POKE780,3:POKE782,4:SYS828
547 IFPEEK(783)AND1THENCLOSE3:GOTO8000
550 REM  PRINT"[215]HEN READY HIT...":GOSUB630
570 REM  PRINT"[147]":PRINT"[196]O YOU WISH TO ABORT OPERATION":PRINT"([217]/[206])"
580 REM  GETZ$:IFZ$=""THEN580
590 REM  IFZ$="Y"THEN2000
595 Y=0
600 CMD3
610 PRINTSPC(40);:PRINT"...."
620 FORX=1TO3
629 GOTO635
630 GOTO5000
635 PRINTSPC(40);:PRINT":  :":NEXT
640 PRINTSPC(35);:PRINT".... :  :"
650 FORX=1TO3
660 PRINTSPC(35);:PRINT":  : :  :":NEXT
670 PRINTSPC(30);:PRINT".... :  : :  :"
680 FORX=1TO3
690 PRINTSPC(30);:PRINT":  : :  : :  :":NEXT
700 PRINTSPC(25);:PRINT".... :  : :  : :  :"
710 FORX=1TO3
720 PRINTSPC(25);:PRINT":  : :  : :  : :  :":NEXT
730 PRINTSPC(20);:PRINT".... :  : :  : :  : :  :"
740 FORX=1TO3
750 PRINTSPC(20);:PRINT":  : :  : :  : :  : :  :":NEXT
760 PRINTSPC(15);:PRINT".... :  : :  : :  : :  : :  :"
770 FORX=1TO3
780 PRINTSPC(15);:PRINT":  : :  : :  : :  : :  : :  :":NEXT
790 PRINTSPC(10);:PRINT".... :  : :  : :  : :  : :  : :  :"
800 PRINTSPC(10);:PRINT":  : :  : :  : :  : :  : :  ...  :"
810 FORX=1TO2
820 PRINTSPC(10);:PRINT":  : :  : :  : :  : :  : :       :":NEXT
830 PRINTSPC(5);: PRINT".... :  : :  : :  : :  : :  : :       :"
840 PRINTSPC(5);: PRINT":  : :  : :  : :  : :  : :  ...       :"
850 FORX=1TO2
860 PRINTSPC(5);: PRINT":  : :  : :  : :  : :  : :            :":NEXT
900 PRINT".... :  : :  : :  : :  : :  : :            :"
910 PRINT":  : :  : :  : :  : :  : :  ...            :"
920 FORX=1TO2
930 PRINT":  : :  : :  : :  : :  : :                 :":NEXT
940 PRINT":  : :  : :  : :  : :  : :                 :"
950 PRINT":  : :  : :  : :  : :  ...                 :"
960 FORX=1TO2
970 PRINT":  : :  : :  : :  : :                      :":NEXT
980 PRINT":  : :  : :  : :  : :            +         :"
990 PRINT":  : :  : :  : :  ...        SCREWHOLE     :"
1000 FORX=1TO3
1010 PRINT":  : :  : :  : :                           :":NEXT
1020 PRINT":  : :  : :  ...     ^  G                  :"
1030 PRINT":  : :  : :          !  R                  :"
1040 PRINT":  : :  : :          !  A                  :"
1050 PRINT":  : :  : :          !  I                  :"
1060 PRINT":  : :  ...          !  N                  :"
1070 FORX=1TO3
1080 PRINT":  : :                                     :":NEXT
1090 PRINT":  ...                                     :"
1100 PRINTC$
1110 PRINT":                               +          :"
1120 PRINT":                           SCREWHOLE      :"
1130 PRINTC$
1140 PRINT"............................................"
1150 PRINT#3:CLOSE3,4
1200 IFY=1THEN410
1210 PRINT"[147]"
1220 OPEN3,4:CMD3
1230 PRINTB$:PRINTA$:PRINTA$
1240 PRINT":   CUT THIS PIECE OUT[160][160][160]:"
1250 PRINT":     OF 2 X 4  STOCK    :"
1260 PRINT":       OR SIMILAR       :"
1270 FORX=1TO7:PRINTA$:NEXT
1280 PRINT":         SIDE A         :"
1290 FORX=1TO5:PRINTA$:NEXT
1300 PRINTA$:PRINTA$:PRINTB$
1310 Y=Y+1:GOTO600
2000 CLR:GOTO100
2009 END
2010 SYS(8*4096)+4
2011 END
5000 REM---HIT ANY KEY
5005 PRINT"":PRINT""
5010 PRINT"            [[198]8][146][154] FOR [213]P[212]IME"
5020 PRINT"          [156][[210]ETURN][146][154] TO CONTINUE"
5030 GETZ$:IFZ$=""THEN5030
5040 IFZ$=CHR$(140)THEN2010
5050 PRINT"[147]":RETURN
6000 DATA 169,216,162,072,160,064,133,250
6005 DATA 134,252,132,254,160,000,132,249
6010 DATA 132,251,132,253,177,249,145,253
6015 DATA 177,251,145,249,177,253,145,251
6017 DATA 200,208,241,230,250,230,252,230
6020 DATA 254,165,250,201,220,208,229,096
7000 POKE53265,PEEK(53265)AND239:PRINT"[147]"
7001 PRINTCHR$(142)+CHR$(8)
7002 A$=":                        :"
7003 B$=".........................."
7004 C$=":                                          :"
7010 PRINT"[156]        [213][195][195][192][192][192][192][192][195][195][195][195][195][195][195][192][192][195][195][195][195][195][195][195][201]"
7020 FORX=1TO10:PRINT"        [221]                       [221]":NEXT
7030 PRINT"        [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
7040 PRINT"[145][145][145][145][145][145][145][145][145][145]MENU"
7050 PRINT"(1[146]) SEE INTRO"
7052 PRINT"(2[146]) RUN PROGRAM"
7054 PRINT"(3[146]) SEE ASSEMBLY HINTS"
7056 PRINT"(4[146]) RETURN TO UPTIME"
7058 PRINT"      PRESS 1-4 FOR YOUR SELECTION"
7059 POKE53265,PEEK(53265)OR16
7060 GETX$:IFX$=""THEN7060
7062 IFVAL(X$)<1ORVAL(X$)>4THEN7060
7064 X=1:ON(VAL(X$))GOTO100,500,39,2010
8000 PRINT"[147]":PRINTSPC(13)"[158]>----[197]RROR----<"
8001 PRINTSPC(11)"[154][208]RINTER NOT FOUND."
8002 PRINTSPC(9)"[195]HECK YOUR CONNECTIONS."
8003 PRINTSPC(3)"[193]LSO, MAKE SURE THE PRINTER IS ON."
8004 PRINTSPC(9)"[215]HEN READY TO RESUME...":GOSUB630
8006 IFX=100THEN595
8008 GOTO510